home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: MegaDisc
/
MegaDisc 15 (1990)(MegaDisc Digital Publishing)(AU)[WB][reissue].zip
/
MegaDisc 15 (1990)(MegaDisc Digital Publishing)(AU)[WB][reissue].adf
/
Programs
/
NOTEBOOK
< prev
next >
Wrap
Text File
|
1989-12-27
|
2KB
|
51 lines
.key PRINT/S,SHOW/S,DELETE/S,SAVE/K ;//sets up template for the arguments
;//PRINT, SHOW and DELETE are switches
;//SAVE is a keyword which requires
; an argument if entered
if <PRINT> eq "PRINT" ;//checks whether PRINT entered
type >prt: Ram:Notes ; if so, prints
endif
if <SHOW> eq "SHOW" ;//checks whether SHOW entered
type Ram:Notes ; if so, displays on screen
endif
if <SAVE> not eq "" ;//checks whether SAVE and a name entered
copy ram:Notes <SAVE> ; if so saves to filename entered after
endif ; the word SAVE
if <DELETE> EQ "DELETE" ;//checks whether DELETE entered
delete ram:Notes ;if so deletes file
skip NoNote ;//if DELETE, skip the entry routine
endif
if <SAVE> not eq "" ;//if SAVE and a filename skip NoNote ; entered, skip the entry routine
else
if <PRINT> eq "PRINT" ;//or if PRINT, skip the entry routine
Skip NoNote
else
if <SHOW> eq "SHOW" ;//or if SHOW, skip the entry routine
skip NoNote
endif
endif ;//only gets to here if not PRINT,SHOW
; SAVE or DELETE so we want to add note
echo " Use Ctrl+\ to finish" ;// say how to get out
echo "*E[32m" ;//pen colour to black, outputs blank line
if not exists ram:Notes ;//check whether file already exists
date >ram:Notes ; if not, create file with date & time
else
date >>ram:Notes ; if so adds current date and time
endif
type >>ram:Notes * ;//accepts keyboard input and directs it
; to end of file until Ctrl-/ is entered
echo >>ram:Notes " " ;//adds blank line to file
echo "*E[31m" ;//restores pen colour to white
lab NoNote ;where to skip to if DELETE,PRINT or SAVE